Imports System.Collections.Generic
Imports Entidades.E_Cliente
Imports Datos.D_Cliente

Public Class N_Cliente

    Public Function AgregarCliente(ByVal item As Entidades.E_Cliente ) As Int32

        Dim oDatos As Datos.D_Cliente

        Try
            oDatos = New Datos.D_Cliente

            Return oDatos.AgregarCliente(item)
        Finally
            oDatos = Nothing
        End Try
    End Function
    Public Function ModificarCliente(ByVal item As Entidades.E_Cliente) As Int32
        Dim oDatos As Datos.D_Cliente

        Try
            oDatos = New Datos.D_Cliente

            Return oDatos.ModificarCliente(item)
        Finally
            oDatos = Nothing
        End Try
    End Function
    Public Sub BorrarCliente(ByVal cuit As Integer)

        Dim oDatos As Datos.D_Cliente

        Try
            oDatos = New Datos.D_Cliente

            oDatos.BorrarCliente(cuit)
        Finally
            oDatos = Nothing
        End Try
    End Sub



    Public Function TraerClientePorNombre(ByVal nombre As String) As List(Of Entidades.E_Cliente)


        Dim oDatos As Datos.D_Cliente

        Try
            oDatos = New Datos.D_Cliente

            Return oDatos.TraerClientePorNombre(nombre)

        Finally
            oDatos = Nothing
        End Try
    End Function


    Public Function TraerClientePorCuit(ByVal nro As Integer) As List(Of Entidades.E_Cliente)



        Dim oDatos As Datos.D_Cliente

        Try
            oDatos = New Datos.D_Cliente

            Return oDatos.TraerClientePorCuit(nro)

        Finally
            oDatos = Nothing
        End Try
    End Function

End Class
